home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / PUTOPA.f < prev    next >
Text File  |  1992-07-31  |  530b  |  19 lines
  1.       SUBROUTINE PUTOPA(SNAME,STYP,ICHR,ICHRE,IERR) 
  2. C! Put an operand on the stack. 
  3.       include 'STACK.h' 
  4.       CHARACTER*(*) SNAME,STYP  
  5.       NLEVL = NLEVL+1   
  6.       IF(NLEVL.GT.MLEVL) GOTO 900   
  7.       CTYP(NLEVL)(:LCTYP) = STYP(:LCTYP)
  8.       LSN = MAX(0,INDEX(SNAME,' ')-1)   
  9.       LOPD(NLEVL) = MIN(LSN,LCOPD)  
  10.       COPD(NLEVL)(:LOPD(NLEVL)) = SNAME(:LOPD(NLEVL))   
  11.       COPT(NLEVL) = ' ' 
  12.       IPOS(NLEVL) = 0   
  13.       IERR = 0  
  14.       GOTO 999  
  15.   900 IERR = NLEVL  
  16.   999 CONTINUE  
  17.       RETURN
  18.       END   
  19.